perm filename JJ[NEW,LCS] blob
sn#333215 filedate 1978-02-04 generic text, type T, neo UTF8
1) MOVER.F4[NEW,LCS] and 2) JUST.F4[NEW,LCS] 2-04-78 10:33 pages 1,1
**** File 1) MOVER.F4[NEW,LCS], Page 1 line 4
1) C00002 00002 SUBROUTINE MOVER
1) C00014 ENDMK
1) C⊗;
1) SUBROUTINE MOVER
1) IMPLICIT INTEGER(A-Q,S-Z)
1) DIMENSION IR(2,250)
1) REAL POS,EXTEN,PRCNT,ACCX
1) COMMON/RINP/R(2,250),NO(350),NP(250)
1) C ARRAY NO(X) USED IN 'MOVIT'. HOLDS ALL POINTS TO BE MOVED AT ANY TIME.
1) COMMON/FRMT/F78F(1),FA1(1),FA5(1),ASK/STF/RSTFAC(0/7),RSTJ2
1) COMMON/XRN/RN(1) /KJY/ KY,JY
1) COMMON R2,JA,CENTR,J2,RJQ(18),RX6,JR,L,RDIS,VY,JQ(17)
1) 1 /POSI/STFF(0/7),JJ2,POS /LIMIT/LIMIT,ITEM,LL,I,IX/PTR/PWDS(1)
1) 1 /ALF/INP(46),ACCX,ML,RRT,RZRO,RCNT,RJSZ,ROV,RSPC,KN,RA,RB,
1) 1 JLDGR,LDGR,JX,RW,RX,RY,RZ,JJ,RD,RQ,RE,RZZ,RN3,RN6,RV,RQ6
1) EQUIVALENCE (R5,RJQ(3)),(R6,RJQ(4)),(R7,RJQ(5)),(R4,RJQ(2))
1) 1,(R3,RJQ(1)),(R8,RJQ(6)),(R9,RJQ(7)),(R11,RJQ(9))
1) 1,(IR,R)
1) DATA F78F/'(78F)'/,FA1/'(A1 )'/,FA5/'(A5 )'/,RSP/.5/,RI/4.5/
1) JJ2=999
1) J2=0
1) ASK=-1
1) C 99=BACKUP
1) 6 CALL VLINE(R2,R4,R5,R6)
1) IF(R2.GE.99)RETURN
1) IF(INP(1).EQ.'J')GO TO 12
1) 167 TYPE 5
1) ACCEPT F78F,R7,R8,R9,R11
1) IF(R7.GE.99)GO TO 6
1) IF(R2.LE.7.AND.R7.GT.7)GO TO 167
1) C TRY AGAIN IF CONFUSION.
1) RDIS=0
1) REREAD FA1,L
1) C FOR LPEN TYPE 'L'. BUT 4TH # MUST APPEAR WHEN NEEDED.
1) IF(L.EQ.'B')GO TO 6
1) IF(R2.GT.7)R7=R2
1) IF(R7.NE.R2)TYPE 1200,R7
1) 1201 IF(L.NE.'L')GO TO 66
1) DO 67 K=1,2
1) R8=RY
1) CALL LPEN(R7,RY,RX)
1) 67 IF(R7.GE.99)GO TO 6
1) R9=RY
1) CC66 JJ2=1
1) 66 NST=1
1) C FOR START OF LOOP (1 UNLESS USING COPYIT)
1) IF(INP(1).NE.'C')GO TO 68
1) MOVER.F4[NEW,LCS] and 2) JUST.F4[NEW,LCS] 2-04-78 10:33 pages 1,1
1) NST=ITEM+1
1) CALL COPYIT
1) 68 IF(R11.NE.0)CALL UPDN(NST)
1) JJ=0
1) IF(R4.NE.R8.OR.R5.NE.R9)JJ=-1
1) JY=0
1) C JY IS CHANGED IN GETPTS
1) IF(JJ)CALL GETPTS(NST)
1) IF(R2.NE.R7)CALL STFCH
1) IF(JY.NE.0)GO TO 1
1) 7 IF(JJ2.EQ.999)JJ2=-1
1) RETURN
1) CC IF(JY.EQ.0)RETURN
1) 1 CALL MOVIT
1) RETURN
1) 12 IF(R4.EQ.0)R4=.001
1) IF(R5.EQ.0)R5=200
1) RCNT=0
1) RRT=R5
1) RZRO=R4
1) RJSZ=RI
1) CALL GETPTS(1)
1) IF(JY.EQ.0)GO TO 7
1) C RETURN IF NO ITEMS FOUND TO DEAL WITH.
1) ROV=RRT
1) PRCNT=1.
1) R7=R2
1) R6=0
1) R11=0
1) 19 IF(RCNT.GT.9)GO TO 101
1) RJSZ=RJSZ-.06
1) RP=PRCNT
1) RCNT=RCNT+1
1) C TEMPORARY COUNTER
1) TYPE F78F,RCNT
1) DO 11 KN=0,7
1) RSPC=0
**** File 2) JUST.F4[NEW,LCS], Page 1 line 4
2) C00002 00002 C TO JUSTIFY SEVERAL MSS FILES AT ONCE. (UP TO 15.)(8*15=120)
2) C00018 ENDMK
2) C⊗;
2) C TO JUSTIFY SEVERAL MSS FILES AT ONCE. (UP TO 15.)(8*15=120)
2) C TO CONVERT(ONE FILE AT A TIME)TO NEW FORMAT, USE 'CONVT' AS 'LAST NAME'.
2) C LOAD WITH -- BIGGET.FAI ---
2) COMMON/XRN/ RN(20000)/PTR/KWDS(2500) ,RSTFAC(120),STFF(120)
2) 1 /RINP/RINP(8),K,SST(8),J,IB,RRT,A,Z,JJ,MX,H(8) /ISZ/ISZ,SZ,JCNT
2) 1 /RJV/V(200) /RR4/R4,R5,P1,P2,IH,M
2) C M=NUM OF STAVES. (BY 8S)
1) MOVER.F4[NEW,LCS] and 2) JUST.F4[NEW,LCS] 2-04-78 10:33 pages 1,1
2) COMMON JK,L,R8,R9,RDIS /NNP/NP(1500) /MMV/MV(1500) /KJY/KY,LY
2) C INCREASE NP AND MV IF NEEDED -- PUT TRAP IN BIGGET!
2) DATA EXT/'DMD'/,OUTX/'DMD'/
2) DIMENSION JW(120),JR(120)
2) ISZ=0
2) SZ=1
2) C FOR RERUNS IN JJUST
2) TYPE 1
2) 1 FORMAT(' FILE NAME 1? '$)
2) CC ACCEPT 200,N1
2) CALL NAMEIN(N1,EXT)
2) 200 FORMAT(A5)
2) TYPE 300
2) 300 FORMAT(' LAST NAME? '$)
2) ACCEPT 200,N2
2) TYPE 3011
2) 3011 FORMAT(' TYPE OUTPUT NAME 1 -- '$)
2) CC ACCEPT 200,NMX
2) CALL NAMEIN(NMX,OUTX)
2) IF(N2.EQ.'CONVT')GO TO 111
2) TYPE 100
2) 100 FORMAT(' POS.1, POS.2 - '$)
2) ACCEPT 111,P1,P2
2) IF(P2.EQ.0)P2=200
2) 111 FORMAT(2F)
2) IF(NMX.EQ.' ')NMX='AAAAA'
2) NNMX=NMX
2) 990 NMX=NNMX
2) JCNT=0
2) JW(1)=1
2) JR(1)=1
2) M=1
2) L=0
2) JX=1
2) IX=1
2) NX=1
2) NM=N1
2) 40 CALL GETEXT(NM,EXT)
2) CALL EXTIN(RINP,32)
2) CALL EXTIN(KWDS(JX),J)
2) CALL EXTIN(RN(IX),IB)
2) J=J-2
2) JJ=0
2) DO 1111 K=NX,NX+7
2) JJ=JJ+1
2) RSTFAC(K)=RINP(JJ)
2) 1111 STFF(K)=SST(JJ)
2) IF(N2.EQ.'CONVT')GO TO 2
1) MOVER.F4[NEW,LCS] and 2) JUST.F4[NEW,LCS] 2-04-78 10:33 pages 1,1
2) C ********* TYPE 999 AS POS1. FOR 'CONVERT', NAME2 WILL BE OUTPUT NM.
2) RX=NX-1
2) IF(RX.EQ.0)GO TO 410
2) DO 41 K=JX,JX+J
2) KWDS(K)=KWDS(K)+L
2) KX=KWDS(K)+2
2) C +2 IS FOR STAFF #
2) 41 RN(KX)=RN(KX)+RX
2) 410 IX=IB+IX-1
2) L=IX-1
2) JX=J+JX
2) JW(M+1)=JX
2) C POINTER TO START OF KWDS FOR EACH FILE
2) JR(M+1)=IX
2) NX=NX+8
2) IF(IX.LT.19500)GO TO 400
2) RRT=IX
2) TYPE 111,RRT
2) 400 IF(NM.EQ.N2)GO TO 5
2) NM=NM+2
2) M=M+1
2) GO TO 40
2) 2 JJ=1
2) 3001 L=KWDS(JJ)
2) K=L+1
2) A=RN(K)
2) Z=RN(L)
2) IF(A.LT.5)GO TO 3002
2) IF(A.LE.10)GO TO 1177
2) IF(A.NE.20)GO TO 3002
2) 1177 IF(A.NE.6)GO TO 3003
2) RN(K)=9
2) GO TO 3002
2) 3003 IF(A.NE.5)GO TO 3004
2) RN(K)=10
2) IF(Z.LT.4)GO TO 3010
2) CALL EXCH(RN(L+5),RN(L+6))
2) GO TO 3002
2) 3004 IF(A.NE.7)GO TO 3005
2) RN(K)=17
2) GO TO 3010
2) 3005 IF(A.EQ.8)RN(K)=5
2) IF(A.EQ.9)RN(K)=6
2) IF(A.NE.10)GO TO 3006
2) RN(K)=8
2) IF(Z.LT.4)GO TO 3010
2) CALL EXCH(RN(L+4),RN(L+5))
2) CALL EXCH(RN(L+6),RN(L+5))
1) MOVER.F4[NEW,LCS] and 2) JUST.F4[NEW,LCS] 2-04-78 10:33 pages 1,1
2) GO TO 3002
2) 3006 IF(A.EQ.20)RN(K)=7
2) IF(A.NE.18)GO TO 3002
2) 3010 FORMAT(' ITEM ',I3,', CODE ',F3.0)
2) TYPE 3010,JJ,A
2) 3002 A=RN(L+2)
2) RN(L+2)=RN(L+3)
2) RN(L+3)=A
2) A=L+Z+3
2) JJ=JJ+1
2) IF(A.EQ.KWDS(JJ))GO TO 3001
2) MX=1
2) CC IF(N2.NE.' ')NM=N2
2) GO TO 6
2) 5 IB=JX-1
2) C TOTAL IN RN ('I' IN MXX.F4)
2) CALL JJUST
2) IF(JCNT.EQ.10)GO TO 990
2) C START OF WRITER
2) 6 NM=NMX
2) JX=1
2) IX=1
2) NX=1
2) L=0
2) ISCR=1
2) Z=0
2) MX=M
2) M=1
2) 7 CALL PUTEXT(NM,OUTX)
2) JJ=0
2) DO 7000 K=NX,NX+7
2) JJ=JJ+1
2) RINP(JJ)=RSTFAC(K)
2) 7000 SST(JJ)=STFF(K)
2) IF(N2.EQ.'CONVT')GO TO 3
2) J=JW(M+1)-JW(M)
2) IB=JR(M+1)-JR(M)+1
2) P1=KWDS(JX+J)
2) RX=NX-1
2) IF(RX.EQ.0)GO TO 3
2) DO 61 K=JX,JX+J-1
2) KX=KWDS(K)
2) KWDS(K)=KX-L
2) KX=KX+2
2) 61 RN(KX)=RN(KX)-RX
2) KWDS(JX+J)=KWDS(JX+J)-L
2) 3 L=IB+IX-2
2) J=J+2
1) MOVER.F4[NEW,LCS] and 2) JUST.F4[NEW,LCS] 2-04-78 10:33 pages 1,1
2) CALL EXTOUT(RINP,32)
2) CALL EXTOUT(KWDS(JX),J)
2) CALL EXTOUT(RN(IX),IB)
2) J=J-2
2) KWDS(JX+J)=P1
2) TYPE 60,NM
2) IF(M.EQ.MX)CALL EXIT
2) M=M+1
2) JX=JW(M)
2) IX=JR(M)
2) NX=NX+8
2) CC END FILE 21
2) NM=NM+2
2) GO TO 7
2) 60 FORMAT(1XA5)
2) END
2) SUBROUTINE JJUST
2) DATA RSP/.5/,RI/4.5/,RPX/.2/
2) COMMON/XRN/ RN(20000)/PTR/KWDS(2500) ,RSTFAC(120),STFF(120)
2) 1 /RINP/RINP(8),K,SST(8),J,IB,RRT,A,Z,JJ,MX,H(8) /ISZ/ISZ,SZ,JCNT
2) 1 /RJV/R(2,100) /RR4/R4,R5,P1,P2,IH,M
2) C M=NUM OF STAVES. (BY 8S)
2) COMMON JK,L,R8,R9,RDIS /NNP/NP(1000) /MMV/MV(1000) /KJY/KY,LY
2) C INCREASE NP AND MV IF NEEDED
2) DIMENSION IR(2,100)
2) EQUIVALENCE (R,IR)
2) IX=KWDS(IB+1)-1
2) PRCNT=1.
2) RRT=P2
2) R5=P2
2) RZRO=P1
2) R4=P1
2) IF(RRT.EQ.0)RRT=200
2) IF(RZRO.EQ.0)RZRO=.001
2) RJSZ=RI
2) CALL BIGGET
2) C BIG GETPTS FAIL ROUTINE
2) ML=1
2) ROV=RRT
2) 19 IF(JCNT.LT.10)GO TO 990
2) ISZ=ISZ+5
2) TYPE 991,ISZ
2) 991 FORMAT(' STAFF SIZE REDUCED BY ',I2,'%')
2) IF(ISZ.GT.50) PAUSE ' TOO MUCH TO HANDLE'
2) SZ=SZ-.05
2) RETURN
2) 990 RP=PRCNT
2) RJSZ=RJSZ-RPX
1) MOVER.F4[NEW,LCS] and 2) JUST.F4[NEW,LCS] 2-04-78 10:33 pages 1,1
2) JCNT=JCNT+1
2) C TEMPORARY COUNTER
2) TYPE 111,JCNT
2) 111 FORMAT(I4)
2) C%%%%% DO 11 KN=-3,M*8-4
2) DO 11 KN=0,M*8-1
2) RSPC=0
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 98
1) 77 IF(RA.LT.3)GO TO 20
1) IF(RA.EQ.4)GO TO 444
1) IF(RA.EQ.3)GO TO 333
1) C LOOKS AT NOTES,RESTS,CLEFS,BAR LINES,KSIGS,METERS.
1) IF(RA.LT.17)GO TO 2
1) GO TO 10
**** File 2) JUST.F4[NEW,LCS], Page 2 line 233
2) 77 IF(RA.LT.3)GO TO 10
2) IF(RA.EQ.4)GO TO 444
2) C LOOKS AT NOTES,RESTS,CLEFS,BAR LINES,KSIGS,METERS.
2) IF(RA.EQ.3)GO TO 333
2) IF(RA.NE.8)GO TO 994
2) IF(RL.LT.3)GO TO 2
2) IF(JCNT.NE.1)GO TO 2
2) RW=RN(L+5)*SZ
2) RN(L+5)=RW
2) RSTFAC(KN+1)=RW
2) C SIZE FACTORS WILL BE REDUCED IF THINGS ARE TOO CRAMPED.
2) GO TO 2
2) 994 IF(RA.LT.17)GO TO 2
2) GO TO 10
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 106
1) IF(RN(L+5).GT.4)GO TO 2
1) C NOT A REAL CLEF IF >4 (0=TREB, 1=BASS, 2=ALT, 3=TEN, 4=PERC.)
1) GO TO 10
1) 444 IF(RL.GT.3)GO TO 2
1) CC FOR REPEATE BAR WDCNT IS 3 -- 10/77 444 IF(RL.GT.2)GO TO 2
1) C SHOULD CHECK ON BAR LINES NO MATTER WHICH STAFF
1) GO TO 10
1) 20 IF(RA.NE.2)GO TO 10
1) IF(RN(L+6))GO TO 2
1) C SKIP INVISIBLE RESTS. (PUT THIS IN OTHER JUST. PROGS.)
1) 10 N=N+1
**** File 2) JUST.F4[NEW,LCS], Page 2 line 249
1) MOVER.F4[NEW,LCS] and 2) JUST.F4[NEW,LCS] 2-04-78 10:33 pages 2,2
2) IF(RN(L+5).GT.3)GO TO 2
2) C NOT A REAL CLEF IF >3
2) GO TO 10
2) 444 IF(RL.GT.2)GO TO 2
2) C SHOULD CHECK ON BAR LINES NO MATTER WHICH STAFF
2) 10 N=N+1
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 119
1) IF(N.EQ.250)GO TO 28
1) C ONLY TREATS 250 ITEMS AT A TIME.
1) 2 CONTINUE
1) IF(N.EQ.0)GO TO 11
1) 28 DO 23 K=1,N
**** File 2) JUST.F4[NEW,LCS], Page 2 line 257
2) IF(N.EQ.100)GO TO 28
2) C ONLY TREATS 100 ITEMS AT A TIME.
2) 2 CONTINUE
2) IF(N.EQ.0)GO TO 11
2) CC28 KM=JFAC(L)
2) C SEE FUNCTION JFAC. RSTFAC PNTR.
2) 28 DO 23 K=1,N
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 128
1) 24 RSTJ2=RSTFAC(KN)*PRCNT
1) CALL SORT2(R,N)
**** File 2) JUST.F4[NEW,LCS], Page 2 line 269
2) 24 RSTJ2=RSTFAC(KN+1)*PRCNT
2) C%%%%%24 RSTJ2=RSTFAC(KN+4)*PRCNT
2) CALL SORT2(R,N)
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 138
1) C RA IS NOW CODE NUM.
1) RB=0
1) RD=0
1) C RD WILL HOLD SPACE TO ADD TO PREV. ITEM, IF NEEDED.
1) RX=RN(L+5)
**** File 2) JUST.F4[NEW,LCS], Page 2 line 280
2) RB=0
2) RX=RN(L+5)
***************
1) MOVER.F4[NEW,LCS] and 2) JUST.F4[NEW,LCS] 2-04-78 10:33 pages 2,2
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 165
1) CC125 IF(AMOD(RN(L+4),200.).GT.60.)RY=.6
1) 125 RC=ABS(RN(L+4))
1)
1) IF(RC.LT.60)GO TO 137
1) IF(RC.LT.180)RY=.6
1) C FOUND A MINI-NOTE
1) 137 DO 37 JJ=JK,K-1
1) IF(RD.NE.0)GO TO 38
1) C FINDS ONLY HIGH OR! LOW LED. LINE.
1) JR=IR(2,JJ)
1) RW=AMOD(RN(JR+4),100.)
1) IF(RW.GT.12)GO TO 277
**** File 2) JUST.F4[NEW,LCS], Page 2 line 304
2) RD=0
2) 125 IF(AMOD(RN(L+4),200.).GT.60.)RY=.6
2) DO 37 JJ=JK,K-1
2) IF(RD.NE.0)GO TO 38
2) C FINDS ONLY HIGH OR! LOW LED. LINE.
2) JIR=IR(2,JJ)
2) RW=AMOD(RN(JIR+4),100.)
2) IF(RW.GT.12)GO TO 277
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 180
1) IF(RW.GT.11)LDGR=1
1) IF(JLDGR.EQ.LDGR)GO TO 36
**** File 2) JUST.F4[NEW,LCS], Page 2 line 314
2) IF(RW.GT.12)LDGR=1
2) IF(JLDGR.EQ.LDGR)GO TO 36
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 189
1) RZZ=RN(JR+7)
1) RE=RN(JR+5)
1) CC IF(RB.LT.2.AND.((AMOD(RZZ,10.).NE.0.AND.RE.LT.20).
1) CC 1 OR.RZZ.GE.10))RB=1.5+EXTEN(RZZ)
1) IF(RB.GE.2)GO TO 477
**** File 2) JUST.F4[NEW,LCS], Page 2 line 323
2) RZZ=RN(JIR+7)
2) RE=RN(JIR+5)
2) IF(RB.GE.2)GO TO 477
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 202
1) MOVER.F4[NEW,LCS] and 2) JUST.F4[NEW,LCS] 2-04-78 10:33 pages 2,2
1) C SPACE FOR DOT OR TAIL(IF STEM UP)
1) 477 IF(ABS(RN(JR+6)).EQ.10)RB=RB+2
1) C FOR CHORD TONES ON RIGHT OF STEM UP.
**** File 2) JUST.F4[NEW,LCS], Page 2 line 335
2) CC IF(RZZ.GE.10)GO TO 377
2) CC IF(RE.GE.20)GO TO 477
2) CC IF(AMOD(RZZ,10.).EQ.0)GO TO 477
2) CC377 RB=1.5+EXTEN(RZZ)
2) C SPACE FOR DOT OR TAIL(IF STEM UP)
2) 477 IF(ABS(RN(JIR+6)).EQ.10)RB=RB+2
2) C FOR CHORD TONES ON RIGHT OF STEM UP.
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 208
1) 425 RD=2.8*RY+EXTEN(RE)
1) CGHB USE 2.8 FOR SIZE OF ACCIS (THEY'RE REALLY 3)425 RD=2*RY+EXTEN(RE)
1) IF(RQ.GT.RD)RD=RQ
**** File 2) JUST.F4[NEW,LCS], Page 2 line 345
2) 425 RD=2*RY+EXTEN(RE)
2) IF(RQ.GT.RD)RD=RQ
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 233
1) CCCCC IF(RE.EQ.0)GO TO 132
1) IF(RE.GE.1)RC=RC+2
1) C FOUND AN ACCI
1) CC ***** WHY WAS THIS *10????? RC=AMOD(RE,1.0)*10.0+RC
1) RC=AMOD(RE,1.0)*10.0+RC
**** File 2) JUST.F4[NEW,LCS], Page 2 line 367
2) IF(RE.EQ.0)GO TO 132
2) IF(RE.GE.1)RC=RC+2
2) C FOUND AN ACCI
2) RC=AMOD(RE,1.0)*10.0+RC
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 243
1) GO TO 25
1) 4 IF(RA.NE.2)GO TO 33
**** File 2) JUST.F4[NEW,LCS], Page 2 line 376
2) 25 IF(JX.GT.0)R(2,JX)=R(2,JX)+RD*RSTJ2
2) GO TO 17
2) 4 IF(RA.NE.2)GO TO 33
***************
1) MOVER.F4[NEW,LCS] and 2) JUST.F4[NEW,LCS] 2-04-78 10:33 pages 2,2
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 255
1) C BAR LINES
1) RB=-RJSZ/(2*RSTJ2)
1) CGHB RB=-RJSZ/2
1) RD=.9
**** File 2) JUST.F4[NEW,LCS], Page 2 line 388
2) RB=-RJSZ/2
2) RD=.9
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 261
1) C METER
1) RC=0
1) IF(RN(L).GE.7)RC=9
1) C FOR COMPOSITE METERS. NO CHECK FOR DBL DIGITS YET.
1) RB=-1
1) RD=1
1) IF(RX6.LE.9.AND.RX.LE.9)GO TO 31
1) C CHECKS FOR 2-DIGIT METERS
**** File 2) JUST.F4[NEW,LCS], Page 2 line 392
2) RB=-1
2) RD=1
2) IF(RX6.LE.9.AND.RX.LE.9)GO TO 25
2) CC IF(RX.GT.9)GO TO 31
2) C CHECKS FOR 2-DIGIT METERS
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 271
1) 31 RB=RB+RC
1) GO TO 25
1) 30 IF(RA.NE.17)GO TO 17
1) C KSIG
1) RX=ABS(RX)
**** File 2) JUST.F4[NEW,LCS], Page 2 line 399
2) CN IF(RX6.GT.9)GO TO 31
2) CN IF(RX.GT.9)GO TO 31
2) C CHECKS FOR 2-DIGIT METERS
2) CN RB=-1
2) CN RD=1
2) CN GO TO 25
2) CN31 RB=2
2) CN RD=3
2) GO TO 25
2) 30 IF(RA.NE.17)GO TO 17
2) RX=ABS(RX)
***************
1) MOVER.F4[NEW,LCS] and 2) JUST.F4[NEW,LCS] 2-04-78 10:33 pages 2,2
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 280
1) C SPACES FOR CORRECT NUM OF ACCIS. RX=NUM OF ACCIS.
1) RD=2
1) 25 IF(JX.GT.0)R(2,JX)=R(2,JX)+RD*RSTJ2
1) 17 RC=(RB+RJSZ)*RSTJ2
1) C RJSZ=DEFAULT SIZE
1) JX=K
1) R(2,JX)=RC
1) CC??????? R(1,JX)=R(1,K)
1) 3 IF(K.LT.N)GO TO 22
**** File 2) JUST.F4[NEW,LCS], Page 2 line 414
2) RD=2
2) GO TO 25
2) C SPACES FOR CORRECT NUM OF ACCIS.
2) 17 RC=(RB+RJSZ)*RSTJ2
2) C RJSZ=DEFAULT SIZE
2) CC JX=JX+1
2) JX=K
2) R(2,JX)=RC
2) CC R(1,JX)=R(1,K)
2) 3 IF(K.LT.N)GO TO 22
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 299
1) C JUMP WHEN SPACE TO ADD IS SMALLER THAN WHAT'S ALREADY THERE
1) 14 RD=RA+RB-RE
**** File 2) JUST.F4[NEW,LCS], Page 2 line 434
2) CC IF(RZZ.LE.RB)GO TO 13
2) C JUMP WHEN SPACE TO ADD IS SMALLER THAN WHAT'S ALREADY THERE
2) CC RB=RZZ-RB
2) 14 RD=RA+RB-RE
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 303
1) ROV=ROV+RD
1) 140 R4=RE+RSPC-.001
1) R5=10000
1) R8=RD
**** File 2) JUST.F4[NEW,LCS], Page 2 line 440
2) CC RD=RA+RB-RE+RD
2) ROV=ROV+RD
2) 140 R4=RE+RSPC-.001
2) R5=1000
2) C MAYBE MORE? ↑↑↑↑↑
1) MOVER.F4[NEW,LCS] and 2) JUST.F4[NEW,LCS] 2-04-78 10:33 pages 2,2
2) R8=RD
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 311
1) C???? IF(R2.LE.4)GO TO 15
1) IF(R2.LE.7)GO TO 15
1) R5=R4
**** File 2) JUST.F4[NEW,LCS], Page 2 line 451
2) R5=R4
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 324
1) 110 IF(ROV.LE.RRT+.01)RETURN
1) IF(RJSZ.GT.4)RJSZ=4
**** File 2) JUST.F4[NEW,LCS], Page 2 line 462
2) 110 IF(ROV.LE.RRT+.01)RETURN
2) IF(RJSZ.GT.4)RJSZ=4
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 328
1) C GO BACK AND EXPAND SOME MORE
1) 101 R4=RZRO
**** File 2) JUST.F4[NEW,LCS], Page 2 line 466
2) 101 R4=RZRO
***************
**** File 1) MOVER.F4[NEW,LCS], Page 2 line 335
1) C RVX SHOULD BE FARTHEST POINT TO RIGHT.
1) 1200 FORMAT(' MOVED TO STAFF ',F4.0/)
1) CALL HYDPOG(3)
1) 5 FORMAT(' TYPE NEW STAFF #, POS1, POS2, UP-DOWN # '$)
1) END
**** File 2) JUST.F4[NEW,LCS], Page 2 line 472
2) END
2)
2) C THESE MOVE ENDS OF PARTIAL INNER BEAMS.
2) SUBROUTINE MVBEAM(I)
2) C L AND JK ARE FOR MOVES TO DIFF. STAFF.
2) COMMON JK,L,R8,R9,RDIS /XRN/RN(20000)
2) Y=RN(JK+I)
2) Z=ABS(Y)
2) IF(Z.LT.100.)GO TO 1
2) C NEXT FOR MINIS, DIAMONDS, 'X' NOTES. (LIMIT OF +-99 ON ALTITUDE.)
2) Y=AMOD(Y,100.)
1) MOVER.F4[NEW,LCS] and 2) JUST.F4[NEW,LCS] 2-04-78 10:33 pages 2,2
2) X=Y+R8
2) Z=Z-ABS(Y)+ABS(X)
2) C PUTS ALL INTO POSITIVE
2) IF(X)Z=-Z
2) GO TO 2
2) 1 Z=Y+R8
2) 2 RN(L+I)=Z
2) END
2) SUBROUTINE NAMEIN(NAME,EXT)
2) COMMON /ALF/I(10)
2) ACCEPT 1,I
2) DO 2 K=2,6
2) IF(I(K).EQ.' ')GO TO 3
2) 2 IF(I(K).EQ.'.')GO TO 4
2) 3 REREAD 99,NAME
2) RETURN
2) 4 GO TO(1,5,6,7,8,9),K
2) 1 FORMAT(10A1)
2) 55 FORMAT(2A1,A3)
2) 66 FORMAT(A2,A1,A3)
2) 77 FORMAT(A3,A1,A3)
2) 88 FORMAT(A4,A1,A3)
2) 99 FORMAT(A5,A1,A3)
2) 5 REREAD 55,NAME,K,EXT
2) RETURN
2) 6 REREAD 66,NAME,K,EXT
2) RETURN
2) 7 REREAD 77,NAME,K,EXT
2) RETURN
2) 8 REREAD 88,NAME,K,EXT
2) RETURN
2) 9 REREAD 99,NAME,K,EXT
2) END
***************